<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->

<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留
checkadmin(1)
dim level,strLevel
level=session("user_level")
Select Case level
	Case 1
		strLevel="普通管理员"
	Case 4
		strLevel="系统管理员"
	Case Else
		strLevel="未配置"
End Select 

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>后台首页</title>
<link type="text/css" href="style/style.css" rel="stylesheet" rev="stylesheet"/>
<script type="text/javascript" src="admin_js/dateselect.js"></script>
<script type="text/javascript" src="admin_js/common.js"></script>
</head>
<body>
<div id="adminindex_layout">
<br/>
<table  cellspacing="0" cellpadding="0" class="table_800">
<tr>
<th colspan="4">服务器信息</th>
</tr>
<tr class="row">
<td>管理级别</td>
<td><%=strLevel%></td>
<td>上次登录</td>
<td><%=session("user_logintime")%>&nbsp;&nbsp;IP：<%=session("user_ip")%></td>
</tr>
<tr class="row">
<td>服务器操作系统</td>
<td><%=Request.ServerVariables("OS")%></td>
<td>服务器软件和版本</td>
<td><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr class="row">
<td>服务器 CPU 数量</td>
<td><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></td>
<td>服务器处理请求的端口</td>
<td><%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr class="row">
<td>站点物理路径</td>
<td><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td>虚拟路径</td>
<td><%=Request.ServerVariables("SCRIPT_NAME")%></td>
</tr>
<tr class="row">
<td>脚本解释引擎</td>
<td><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
<td>脚本超时时间</td>
<td><%=Server.ScriptTimeout%>秒</td>
</tr>
<tr class="row">
<td>Jmail邮箱组件支持</td>
<td><%
	  If IsObjInstalled("JMail.Message") Then
         response.write("<font color=red>√</font>") 
      else
         response.write("<font color=red>×</font>") 
      end if
    %></td>
<td>CDONTS组件支持</td>
<td><%
	  If IsObjInstalled("CDONTS.NewMail") Then
         response.write("<font color=red>√</font>") 
      else
         response.write("<font color=red>×</font>") 
      end if
    %></td>
</tr>
<tr class="row">
<td>FSO文本文件读写</td>
<td><%
    If IsObjInstalled("Scripting.FileSystemObject") Then
       response.write("<font color=red>√</font>") 
    else
       response.write("<font color=red>× 本系统上传组件需要FSO支持，请使用支持FSO的主机</font>") 
    end if
    %></td>
<td>域名IP</td>
<td>http://<%=Request.ServerVariables("SERVER_NAME")%>&nbsp;/&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>

</table>

</body>
</html>

